home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / arc / fact127.zip / ARL.BTM < prev    next >
Text File  |  1996-05-23  |  3KB  |  115 lines

  1. ::*########################################################################
  2. ::* ARL.BTM
  3. ::*
  4. ::* Simple 4DOS Archive Lister.  Allows you to view a list of files within
  5. ::* archives.  It just looks at the archive extension and then calls the
  6. ::* corresponding archiver to list the files.
  7. ::*
  8. ::* Public Domain, by David Daniel Anderson.    Version 1.00, 13-Apr-1996
  9. ::* Comments welcome on ILink, RIME, or via email:  dda@panasia.com
  10. ::*
  11. ::* Run with an empty command line to view basic help and information.
  12. ::*
  13. ::* Note: if you want to add archive extensions, see lines 47 and below.
  14. ::*########################################################################
  15. setlocal
  16. if "%1"=="" goto help
  17. for %f in (%1) do gosub view
  18. quit 0
  19. ::* The section below is just a gosub!
  20. :VIEW
  21. set ext=%@ext[%f]
  22. if "%ext"=="" return
  23. iff islabel %ext then
  24.   echo.
  25.   echo /// ARL.BTM - Listing contents of %f \\\
  26.   echo.
  27.   gosub %ext
  28.   iff "%2" ne "" then
  29.     iff %@lower[%2]=/p then
  30.       echo.
  31.       pause
  32.     endiff
  33.   endiff
  34. endiff
  35. return
  36. ::* This is just a simple help screen, expand it if you wish.
  37. :HELP
  38. echo.
  39. echo Name:     ARL.BTM
  40. echo.
  41. echo Purpose:  List contents of archives, with standard 4DOS commands.
  42. echo.
  43. echo Usage:    ARL archives [/p]
  44. echo.
  45. echo Where:    /p  causes ARL to pause after every archive  [optional]
  46. echo.
  47. echo Example:  ARL somefile.zoo
  48. echo.
  49. quit 1
  50. ::*########################################################################
  51. ::* Following are the archive extensions that you may encounter.
  52. ::* You should comment out definitions for any programs you do not have.
  53. ::* ======================================================================
  54. ::* If you wish to define your own, just follow this format:
  55. ::*
  56. ::*   1) Put a label that matches the archive extension.  (e.g. ":ZIP")
  57. ::*
  58. ::*   2) On the next line, put the following information:
  59. ::*       a) the program name that will list the archive's contents;
  60. ::*       b) that program's switch to list the archive's contents;
  61. ::*       c) %f  (to indicate where the archive name will be placed);
  62. ::*       d) a wildcard specification, if the archiver needs one.
  63. ::*
  64. ::*   3) Put "return" as the last line or command.  Don't forget!
  65. ::*
  66. ::*########################################################################
  67. :ACB
  68. ACB l %f^return
  69. :AIN
  70. AIN v %f^return
  71. :ARC
  72. PKUNPAK -v %f^return
  73. :ARJ
  74. ARJ l %f^return
  75. :HA
  76. HA l %f^return
  77. :HAP
  78. PAH l %f *.*^return
  79. :HPK
  80. HPACK v %f^return
  81. :HYP
  82. HYPER -v %f^return
  83. :JRC
  84. JRCL %f^return
  85. :LIB
  86. CODEC -v %f * -m -q^return
  87. :LIM
  88. LIMIT l %f^return
  89. :LZH
  90. LHA l %f^return
  91. :LZS
  92. LHA l %f^return
  93. :PAK
  94. PAK v %f^return
  95. :PAQ
  96. UNPAQ -v %f^return
  97. :PUT
  98. LHA l %f^return
  99. :RAR
  100. RAR l -std %f^return
  101. :SAR
  102. SAR l %f^return
  103. :SQZ
  104. SQZ l %f^return
  105. :UC2
  106. UC vs %f^return
  107. :X
  108. X1 l %f^return
  109. :YC
  110. YAC l %f^return
  111. :ZIP
  112. PKZIP -v %f^return
  113. :ZOO
  114. ZOO -list %f^return
  115.